home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 / Tiger_Disk_003_1994-06_Tiger-Crew-Disk_de_Side_B.d64 / dir.-druck [tc] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  56 lines
  1. 10 poke788,52:printchr$(8):poke53281,7:a=0:goto140
  2. 15 open10,4,10:print#10:close10:return
  3. 20 open15,c,15:input#15,aa,bb$,cc,dd
  4. 30 ifaa<>0thenprint"              f e h l e r  !           ":goto50
  5. 40 return
  6. 50 print,aa;bb$;cc;dd:ifleft$(bb$,4)="read"thenprint"             [196][201][211][203] [197][201][206][204][197][199][197][206] !"
  7. 60 gosub70:close3:close15:goto390
  8. 70 poke198,0:wait198,1:poke198,0:return
  9. 80 w=peek(768):open1,b:poke768,185:print#1:close1:poke768,w:ifst<>-128theny=0:return
  10. 90 ify=2theny=0:goto280
  11. 100 print"  [194][201][212][212][197] [218][213][197][210][211][212] [196][210][213][195][203][197][210] [197][201][206][211][195][200][193][204][212][197][206] !":gosub70:y=y+1:goto80
  12. 110 w=peek(768):poke768,185:open1,c,15,"i":close1:poke768,w:ifst<>-128theny=0:return
  13. 120 ify=2theny=0:goto340
  14. 130 print"  [194][201][212][212][197] [204][193][213][198][215][197][210][203] ";c;" [197][201][206][211][195][200][193][204][212][197][206] !":gosub70:y=y+1:goto110
  15. 140 print"[144][147]            directory-druck"
  16. 150 print"        fuer cbm-drucker mps 801"
  17. 160 print"        bzw. seikosha    sl-80vc
  18. 170 [153]" (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  19. 180 [153]" peek by     t i g e r - c r e w         peek"
  20. 190 [153]" mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)":[141]70
  21. 200 [151]53272,23:[153] "load    str$rucker eingeschaltet ?? "
  22. 210 [153]"clr  (vals empfiehlt sich, den str$rucker auf     len(NULL)(NULL)str$val(NULL)(NULL)valstr$ einzustellen !)"
  23. 220 [141]70
  24. 230 [134]m$(150),l$(150),h$(150):[153]"loadstop peekitte waehlen: "
  25. 240 [153]" str$ruck   in chr$rossbuchstaben >chr$<"
  26. 250 [153]" oder    in (NULL)leinbuchstaben >(NULL)<"
  27. 260 [161]i$:[139]i$[179][177]"k"[175]i$[179][177]"(NULL)"[175]i$[179][177]"g"[175]i$[179][177]"chr$"[167]260
  28. 270 [139]i$[178]"k"[176]i$[178]"(NULL)"[167]a[178]7
  29. 280 [153]" str$ruckeradresse (4/5/6)";
  30. 290 [161]c$:[139]c$[179][177]"4"[175]c$[179][177]"5"[175]c$[179][177]"6"[167]290
  31. 300 b[178][197](c$):[153]b:[141]80
  32. 310 [153]" len(NULL)(NULL)str$val(NULL)valstr$    (1)":[153]" oder normal (2)"
  33. 320 [161]w$:[139]w$[179][177]"1"[175]w$[179][177]"2"[167]320
  34. 330 [139]w$[178]"1"[167][159]13,4,13:[152]13
  35. 340 [153]" ascloppy-atndresse (8/9)";
  36. 350 [161]c$:[139]c$[179][177]"8"[175]c$[179][177]"9"[167]350
  37. 360 c[178][197](c$):[153]c
  38. 370 [153]" peekitte str$isk in (NULL)aufwerk";c;"einlegen":[153]" und <(NULL)val(NULL)(NULL)(NULL)(NULL)> druecken !"
  39. 380 [161]c$:[139]c$[179][177][199](13)[167]380
  40. 390 [141]110:[153]"loadstop      peekitte warten !                    "
  41. 400 [153] " str$irectory wird gelesen und gedruckt!":[159]4,b,a
  42. 410 [159]3,c,0,"$":[161]#3,x$,x$:e$[178][199](0):k[178]1:[141]20
  43. 420 [161]#3,x$,x$,l$(k),h$(k):[139]x$[178]""[167]450
  44. 430 [161]#3,a$:[139]a$[179][177]""[167]m$(k)[178]m$(k)[170]a$:[137]430
  45. 440 k[178]k[170]1:[137]420
  46. 450 [160]3:[157]4:[129]j[178]1[164]k[171]1:[152]4,256[172][198](h$(j)[170]e$)[170][198](l$(j)[170]e$);m$(j)
  47. 460 [130]:[129]j[178]1[164]5:[152]4," ":[130]:[152]4:[160]4:[139]w$[178]"1"[167][160]13:[141]15
  48. 470 [151]53281,5:[153]"load stop(NULL)och ein str$ir. drucken ? (j/n)? "
  49. 480 [161]d$:[139]d$[179][177]"j"[175]d$[179][177]"n"[167]480
  50. 490 [139]d$[178]"j"[167]540
  51. 500 [151]53281,2:[153]"loadsys    val (NULL)closestr$closevalclosewait - peekist str$u sicher ?"
  52. 510 [161]d$:[139]d$[179][177]"j"[175]d$[179][177]"n"[167]510
  53. 520 [139]d$[178]"n"[167]540
  54. 530 [153]"load   peekis demnaechst !!!":[129]t[178]1[164]1000:[130]:[158]64738
  55. 540 [151]53281,7:[151]646,0:[156]:[153]"load":[137]230
  56.